0 REM << CD42-3 >>
1 REM ==================================
2 REM    COMMODARES PROBLEM #38-1 :
3 PRINT"[147]PARM PASS 2"
4 REM    SOLUTION BY
5 REM    PAUL SOBOLIK
6 REM ==================================
7 REM   --------METHOD 2-----------
8 REM ----SAVE LINE 10-30 AS PROG1------
10 INPUT P1 : OPEN 8,8,8,"PARM.SEQ,S,W"
20 PRINT#8,P1 : CLOSE 8
30 LOAD"PROG2",8
35 REM----SAVE LINES 40-60 AS PROG2-----
40 OPEN 8,8,8,"PARM.SEQ,S,R"
50 INPUT#8,P2 : PRINT"IN PROG2, P2=";P2
60 CLOSE 8
70 OPEN 15,8,15,"S0:PARM.SEQ":CLOSE 15
74 REM
75 REM  ---METHOD 5 (C64 ONLY)---
76 REM ----SAVE LINES 80-90 AS PROG3---
80 INPUT P3 : PRINT"[147]"P3
90 LOAD"PROG4",8
95 REM ----SAVE LINES 100-110 AS PROG4--
100 PRINT"";:OPEN 3,3 : INPUT#3,P4
110 CLOSE 3 : PRINT"IN PROG4, P4=";P4